home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 175 / 175.d81 / b.mouse shell (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  40 lines
  1. 10 poke53281,0:poke53280,15
  2. 12 poke56,159:clr
  3. 20 dv=peek(186):ifdv<8thendv=8
  4. 30 print"[147][159]"
  5. 40 sys57812"mr.mouse 2 c000",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  6. 50 ml=49152:mv=ml+177:pokemv+1,159
  7. 52 v=53248
  8. 54 fori=1to4:readmn$(i):next
  9. 56 data"[204][207][193][196]","[211][193][214][197]","[200][197][204][208]","[209][213][201][212]"
  10. 60 sysml:sysml+6,704:pokev+21,1
  11. 70 sysml+30,0,39,0,24,254,5+32
  12. 80 sysml+30,4,35,1,3,160,2+16
  13. 100 fori=1to4:x(i)=30:y(i)=3+4*i
  14. 110 sysml+30,x(i),x(i)+7,y(i),y(i)+2,160,3+16
  15. 120 sysml+15,i,x(i),x(i)+7,y(i),y(i)+2
  16. 130 sysml+12,x(i)+2,y(i)+1,mn$(i)
  17. 140 next
  18. 200 sysml+9:print"     "cr%
  19. 210 ifcr%=0then200
  20. 220 oncr%goto300,400,500,600
  21. 230 goto200
  22. 300 rem load
  23. 400 rem save
  24. 500 rem help
  25. 590 sysml+24,30:goto200
  26. 600 sysml+3:pokev+21,0:rem required!
  27. 610 goto40000
  28. 999 goto999
  29. 10000 d=peek(186):n$="0:b.mouse shell":open15,d,15,"s"+n$:close15:saven$,d:end
  30. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  31. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  32. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  33. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  34. 40040 close2:open2,i,2:close2:ifstthen40060
  35. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  36. 40060 next:return
  37. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  38. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  39. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  40.